home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tc.d64 / slot.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  309b  |  12 lines
  1. 100 REM ** SLOT.BOOT ** LISTING 2 ** FROM COMMANDER OCTOBER 1983
  2. 110 IFX=0THENX=1:LOAD"SLOT.DATA",8,1
  3. 130 POKE53280,0:POKE53281,0
  4. 140 PRINTCHR$(147)CHR$(5)"NEW"
  5. 150 PRINTCHR$(17)CHR$(17)"LOAD";
  6. 160 PRINTCHR$(34)"SLOT.PRG"CHR$(34)",8"
  7. 170 POKE198,9:POKE53265,27
  8. 180 DATA19,13,13,32,32,82,85,78,13
  9. 190 FORI=1TO9:READX:POKE630+I,X:NEXT
  10. 200 POKE44,64:POKE16*1024,0:POKE56,126
  11. 210 CLR:NEW
  12.